0 POKE 53280,0:POKE53281,0:PRINT"[147][152]"
1 PRINT"[147]":GOTO 35
2 :
3 REM TURBO INPUT ENTWICKELT VON DANIEL       HIMMEL / 1993
4 :
5 LE=34
7 I$="":X$="":P=0
9 TE$=">":POKE 214,PEEK(214)+1:POKE 211,2-LEN(TE$)-1
11 SYS 58732
13 PRINT TE$;" ";:P=0:BS=1
15 POKE204,0:POKE198,0:WAIT198,1:GETX$:POKE207,0:POKE204,1:PRINT" [157]";:IFX$="[137]"THENI$="F[166]_":RETURN
17 IFP>0THENIFASC(X$)=20THENI$=LEFT$(I$,LEN(I$)-1):PRINT"[157] [157]";:P=P-1:GOTO15
19 IFASC(X$)=13GOTO29
21 IFP=LEGOTO15
25 IFBS=1THENIF(X$<" "OR(X$>CHR$(127)))THENIFX$<CHR$(160)GOTO15
27 PRINTX$;:I$=I$+X$:P=P+1:GOTO15
29 PRINT CHR$(13)
31 RETURN
33 :
35 IF A=0 THEN A=1:LOAD"LEONARDO SPRT",8,1
36 IF A=1 THEN A=2:LOAD"LEONARDO CHAR",8,1
37 VI=53248:POKEVI,32:POKEVI+1,48:POKEVI+2,80:POKEVI+3,48:POKEVI+4,112
38 POKEVI+5,48:POKEVI+6,32:POKEVI+7,90:POKEVI+8,80:POKEVI+9,90:POKEVI+10,112
39 POKEVI+11,90:POKEVI+12,32:POKEVI+13,132:POKEVI+14,80:POKEVI+15,132
40 POKEVI+21,255:POKEVI+23,255:POKEVI+28,255:POKEVI+29,255:POKEVI+32,0
41 POKEVI+33,0:POKEVI+37,242:POKEVI+38,250:POKEVI+39,249:POKEVI+40,249
42 POKEVI+41,249:POKEVI+42,249:POKEVI+43,249:POKEVI+44,249:POKEVI+45,249
43 POKEVI+46,249
44 POKE52216,192:POKE52217,193:POKE52218,194:POKE52219,195:POKE52220,196
45 POKE52221,197:POKE52222,198:POKE52223,199:POKE53272,33:POKE56576,0:POKE648,200
46 :
50 GOSUB 110
51 FOR JH=1 TO 4:PRINT""
52 FOR WE=1 TO 14:PRINTCHR$(13)" "TAB(20);:READ EW$:GETQ$:IFQ$="_" THEN 55
53 FOROI=1TO17:PRINT"[145]"TAB(20)""MID$(EW$,1,OI)"[146]":FORTY=0TO2:NEXTTY:NEXTOI:NEXT
54 POKE198,0:WAIT198,1:POKE198,0:NEXT
55 :
60 DATA "[200]ALLO, ICH BIN  "
61 DATA "[155][204]EONARDO, KURZ  "
62 DATA "[152][204]EO GENANNT. [201]CH"
63 DATA "[151]BIN NICHT DIE   "
64 DATA "[152][211]CHOENE AUF DEM "
65 DATA "[155][194]ILD, SIE IST   "
66 DATA "MEINE [214]ERLOBTE! "
67 DATA "[155][197]IGENTLICH WAR  "
68 DATA "[152]SIE ES, DEN VOR "
69 DATA "[151]KURZEM WURDE SIE"
70 DATA "[152]VON [211]PACE-      "
71 DATA "[155][205]UTANTEN GERAUBT"
72 DATA "                "
73 DATA "[155]<[212]ASTE.........>"
74 REM ------- NEXT PAGE ! -------
75 DATA "UND AUF EINE    "
76 DATA "[155]EINSAME [201]NSEL   "
77 DATA "[152]VERSCHLEPPT. [206]UN"
78 DATA "[151]VERSUCHE ICH    "
79 DATA "[152]HELDENHAFTER-   "
80 DATA "[155]WEISE SIE ZU    "
81 DATA "RETTEN, UND DU  "
82 DATA "[155]WIRST MIR DABEI "
83 DATA "[152]HELFEN! ([200]OFFE  "
84 DATA "[151]ICH DOCH STARK!)"
85 DATA "[152]                "
86 DATA "[155][196]AS [193]BENTEUER   "
87 DATA "BEGINNT!        "
88 DATA "[155]<.........[212]ASTE>"
89 REM ------ NEXT PAGE! ------
90 DATA "[195]REDITS:        "
91 DATA "[155]                "
92 DATA "[152][208]ROGRAMMIERUNG  "
93 DATA "[151]   [196]ANIEL [200]IMMEL"
94 DATA "[152]                "
95 DATA "[155][199]RAFIK UND [211]OUND"
96 DATA "  [196]ANIEL [200]IMMEL&"
97 DATA "[155][211]OMEBODY [213]NKNOWN"
98 DATA "[152]                "
99 DATA "[151][201]DEE UND [203]ONZEPT"
100 DATA "[152]   [196]ANIEL [200]IMMEL"
101 DATA "[155]                "
102 DATA "[208]UBLIC [196]OMAIN ! "
103 DATA "[155]<[212]ASTE.........>"
104 :
105 GOTO 130
106 :
110 REM "[212]ITEL !"
111 PRINT"[147]                   [158][200][201][212] _ [212][207] [197][206][196] [201][206][212][210][207]!"
112 PRINT"[152]      [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"CHR$(8)
114 PRINT"      [221][158] [204]EONARDO 2001 - [196]IE [207]DYSEE [152][221][151] [146][152]"
116 PRINT"      [221][159] [196]IRECTED BY  [196]ANIEL [200]IMMEL [152][221][151] [146][152]"
118 PRINT"      [221]    [208]RODUCED IN  1994 BY    [152][221][151] [146][152]"
120 PRINT"      [221][150]       [176][192][192][192]      [192][192][192][174]       [152][221][151] [146][152]"
122 PRINT"      [221][150]       [171][192][179][203]ULTSOFT[150][171][192][179]       [152][221][151] [146][152]"
124 PRINT"      [221][150]       [173][192][192][192]      [192][192][192][189]       [152][221][151] [146][152]"
126 PRINT"      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][151] [146][152]"
127 PRINT"       [151]                              [146][145][145][145][145]"
128 RETURN
129 :
130 POKE 53248+21,0
132 PRINT"[147][152]"
133 GOTO 400
134 :
135 DATA "[193]M [197]NDE DES     "
136 DATA "[155][211]PIELES ERWARTET"
137 DATA "[152]DICH ETWAS GANZ "
138 DATA "[151]BESONDERES, NIE "
139 DATA "[152]DAGEWESENES!    "
140 DATA "[155][197]IN KLEINER [212]IP:"
141 DATA "[197]S HAT ETWAS MIT"
142 DATA "[155]MEINER [214]ERLOBTEN"
143 DATA "[152]ZU TUN!         "
144 DATA "[151]                "
145 DATA "[152][206]A? [201]NTERSSIERT?"
146 DATA "[155][196]ANN ZOCK DAS   "
147 DATA "[193]DVENTURE !     "
148 DATA "[155]<.........[212]ASTE>"
149 :
150 PRINT" [152][204]OADING...[146][145][145][145][145][145][145][145]"
151 :
152 PRINT"[144]LOAD"CHR$(34)"LEONARDO FSTL"CHR$(34)",8:"
153 PRINT:PRINT:PRINT:PRINT:PRINT"RUN:"
154 PRINT:PRINT:PRINT"LOAD"CHR$(34)"LEONARDO SHOW"CHR$(34)",8:"
155 PRINT:PRINT:PRINT"RUN:"
156 POKE198,5:POKE631,19:POKE632,13:POKE633,13::POKE634,13:POKE635,13:END
400 PRINT" [152][204]OADING...[146][145][145][145][145][145][145][145]"
401 PRINT"[144]LOAD"CHR$(34)"LEONARDO SHOW"CHR$(34)",8:"
402 PRINT:PRINT:PRINT:PRINT:PRINT"RUN:"
404 POKE198,3:POKE631,19:POKE632,13:POKE633,13:END
0